library(readr)
library(ggplot2)

decadeACC <- read_csv("/Users/cheng/OneDrive/Desktop/character/character/4_build_models/Figure4Data.csv")

#plot for figure 4
#plot of prediction accuracies per decade
accuracy_plot <- ggplot(decadeACC, aes(x=decade, y=accuracy)) +
  geom_point(color = "#56B4E9")+
  geom_smooth(color = "#56B4E9")+
  ggtitle("Accuracy of Gender Predictions From 15 Models of Physical Description")+
  ylab("Predictive Accuracy")+ 
  scale_x_continuous(breaks = seq(1850, 2000, by = 10))+
  scale_y_continuous(breaks = seq(.7, .85, by = .05)) +
  theme(axis.title.x = element_blank())
accuracy_plot 